
### CODE FOR FIGURE 13: SCALABILITY OF GENERALIZED WORDFISH

setwd("~/Documents/working/wordIRT/simulation")

pdf("runtime_pois.pdf")
k.vec <- c(10,50,100)
plot(0,0,type="n",xlim=c(10,130),ylim=c(0,150), cex.lab=1.2,
	xlab="Documents per Actor (K/N)",
	ylab="Computing Time (minutes)")
load("runtimes_i100.rda")
points(k.vec, runtimes[,"runtime"]/60, type="b", lwd=3, lty=1, pch=19, col="gray60")
load("runtimes_i500.rda")
points(k.vec, runtimes[,"runtime"]/60, type="b", lwd=3, lty=2, pch=8)
load("runtimes_i1000.rda")
points(k.vec, runtimes[,"runtime"]/60, type="b", lwd=3, lty=3, pch=17)
text(120,5.5,"N=100, J=5000")
text(120,45,"N=500, J=5000")
text(120,145,"N=1000, J=5000")
dev.off()